home *** CD-ROM | disk | FTP | other *** search
/ Delphi 2.0 - Programmer's Utilities Power Pack / Delphi 2.0 Programmer's Utilities Power Pack.iso / m_to_r / qrep096 / labelrep.dfm / labelrep.txt
Encoding:
Text File  |  1996-09-15  |  4.0 KB  |  187 lines
  1. object LabelForm: TLabelForm
  2.   Left = 368
  3.   Top = 486
  4.   Width = 791
  5.   Height = 337
  6.   HorzScrollBar.Range = 1200
  7.   VertScrollBar.Range = 2000
  8.   BorderStyle = bsDialog
  9.   Caption = 'LabelForm'
  10.   Font.Color = clBlack
  11.   Font.Height = -11
  12.   Font.Name = 'Courier New'
  13.   Font.Style = []
  14.   PixelsPerInch = 96
  15.   TextHeight = 14
  16.   object QRBand1: TQRBand
  17.     Left = 0
  18.     Top = 22
  19.     Width = 1200
  20.     Height = 71
  21.     Align = alTop
  22.     BandType = rbDetail
  23.     Color = clWhite
  24.     ForceNewPage = False
  25.     Frame.Width = 0
  26.     Ruler = qrrInchesHV
  27.     object QRDBText1: TQRDBText
  28.       Left = 14
  29.       Top = 6
  30.       width = 203
  31.       height = 13
  32.       AutoSize = False
  33.       DataSource = DataSource1
  34.       DataField = 'Company'
  35.     end
  36.     object QRDBText2: TQRDBText
  37.       Left = 14
  38.       Top = 19
  39.       width = 216
  40.       height = 13
  41.       AutoSize = False
  42.       DataSource = DataSource1
  43.       DataField = 'Addr1'
  44.     end
  45.     object QRDBText4: TQRDBText
  46.       Left = 14
  47.       Top = 45
  48.       width = 216
  49.       height = 13
  50.       AutoSize = False
  51.       Color = clWhite
  52.       DataSource = DataSource1
  53.       DataField = 'AdrLine4'
  54.     end
  55.     object QRDBText3: TQRDBText
  56.       Left = 14
  57.       Top = 32
  58.       width = 219
  59.       height = 13
  60.       AutoSize = False
  61.       DataSource = DataSource1
  62.       DataField = 'AdrLine3'
  63.     end
  64.   end
  65.   object QRBand2: TQRBand
  66.     Left = 0
  67.     Top = 0
  68.     Width = 1200
  69.     Height = 22
  70.     Align = alTop
  71.     BandType = rbPageHeader
  72.     Color = clWhite
  73.     ForceNewPage = False
  74.     Frame.Width = 0
  75.     Ruler = qrrNone
  76.     object QRLabel1: TQRLabel
  77.       Left = 11
  78.       Top = 3
  79.       width = 218
  80.       height = 15
  81.       Alignment = taCenter
  82.       Caption = 'QuickReport mailing label demo report'
  83.       AlignToBand = True
  84.       Font.Color = clBlack
  85.       Font.Height = -12
  86.       Font.Name = 'Arial'
  87.       Font.Style = [fsBold]
  88.     end
  89.     object QRSysData1: TQRSysData
  90.       Left = 644
  91.       Top = 4
  92.       width = 65
  93.       height = 17
  94.       Alignment = taRightJustify
  95.       AlignToBand = True
  96.       AutoSize = False
  97.       Data = qrsPageNumber
  98.       Text = 'Page '
  99.     end
  100.   end
  101.   object Table1: TTable
  102.     Active = True
  103.     OnCalcFields = Table1CalcFields
  104.     DatabaseName = 'DBDEMOS'
  105.     TableName = 'CUSTOMER.DB'
  106.     Left = 35
  107.     Top = 100
  108.     object Table1CustNo: TFloatField
  109.       FieldName = 'CustNo'
  110.     end
  111.     object Table1Company: TStringField
  112.       FieldName = 'Company'
  113.       Size = 30
  114.     end
  115.     object Table1Addr1: TStringField
  116.       FieldName = 'Addr1'
  117.       Size = 30
  118.     end
  119.     object Table1Addr2: TStringField
  120.       FieldName = 'Addr2'
  121.       Size = 30
  122.     end
  123.     object Table1City: TStringField
  124.       FieldName = 'City'
  125.       Size = 15
  126.     end
  127.     object Table1State: TStringField
  128.       FieldName = 'State'
  129.     end
  130.     object Table1Zip: TStringField
  131.       FieldName = 'Zip'
  132.       Size = 10
  133.     end
  134.     object Table1Country: TStringField
  135.       FieldName = 'Country'
  136.     end
  137.     object Table1Phone: TStringField
  138.       FieldName = 'Phone'
  139.       Size = 15
  140.     end
  141.     object Table1FAX: TStringField
  142.       FieldName = 'FAX'
  143.       Size = 15
  144.     end
  145.     object Table1TaxRate: TFloatField
  146.       FieldName = 'TaxRate'
  147.     end
  148.     object Table1Contact: TStringField
  149.       FieldName = 'Contact'
  150.     end
  151.     object Table1LastInvoiceDate: TDateTimeField
  152.       FieldName = 'LastInvoiceDate'
  153.     end
  154.     object Table1AdrLine3: TStringField
  155.       Calculated = True
  156.       FieldName = 'AdrLine3'
  157.       Size = 30
  158.     end
  159.     object Table1AdrLine4: TStringField
  160.       Calculated = True
  161.       FieldName = 'AdrLine4'
  162.       Size = 30
  163.     end
  164.   end
  165.   object DataSource1: TDataSource
  166.     DataSet = Table1
  167.     Left = 67
  168.     Top = 100
  169.   end
  170.   object Rep: TQuickReport
  171.     Columns = 3
  172.     DataSource = DataSource1
  173.     DisplayPrintDialog = False
  174.     LeftMarginInches = 0
  175.     LeftMarginMM = 0
  176.     Orientation = poPortrait
  177.     PrintOrder = qrColByCol
  178.     ReportTitle = 'QuickReport mailing label demonstration'
  179.     ReportType = qrStandard
  180.     RestartData = True
  181.     SQLCompatible = False
  182.     TitleBeforeHeader = False
  183.     Left = 3
  184.     Top = 100
  185.   end
  186. end
  187.